home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / ai.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  14.1 KB  |  493 lines
  1. //
  2. // AI support functions.
  3. //
  4.  
  5. //
  6. // This function creates an AI player using the supplied group of markers 
  7. //    for locations.  The first marker in the group gives the starting location 
  8. //    of the the AI, and the remaining markers specify the path to follow.  
  9. //
  10. // Example call:  
  11. // 
  12. //    createAI( guardNumberOne, "MissionGroup\\Teams\\team0\\guardPath", larmor );
  13. //
  14.  
  15. //globals
  16. //--------
  17. // path type
  18. // 0 = circular
  19. // 1 = oneWay
  20. // 2 = twoWay
  21. $AI::defaultPathType = 2; //run twoWay paths
  22.  
  23. //armor types
  24. //light = larmor
  25. //medium = marmor
  26. //heavy = harmor
  27. $AI::defaultArmorType = "larmor";
  28.  
  29.  
  30.  
  31. //---------------------------------
  32. //createAI()
  33. //---------------------------------
  34. function createAI( %aiName, %markerGroup, %armorType, %name )
  35. {
  36.    %group = nameToID( %markerGroup );
  37.    
  38.    if( %group == -1 || Group::objectCount(%group) == 0 )
  39.    {
  40.       dbecho(1, %aiName @ "Couldn't create AI: " @ %markerGroup @ " empty or not found." );
  41.       return -1;
  42.    }
  43.    else
  44.    {
  45.       %spawnMarker = Group::getObject(%group, 0);
  46.       %spawnPos = GameBase::getPosition(%spawnMarker);
  47.       %spawnRot = GameBase::getRotation(%spawnMarker);
  48.  
  49.       if( AI::spawn( %aiName, %armorType, %spawnPos, %spawnRot, %name, "male2" ) != "false" )
  50.       {
  51.          // The order number is used for sorting waypoints, and other directives.  
  52.          %orderNumber = 100;
  53.          
  54.          for(%i = 1; %i < Group::objectCount(%group); %i = %i + 1)
  55.          {
  56.              
  57.             %spawnMarker = Group::getObject(%group, %i);
  58.             %spawnPos = GameBase::getPosition(%spawnMarker);
  59.             
  60.             AI::DirectiveWaypoint( %aiName, %spawnPos, %orderNumber );
  61.             
  62.             %orderNumber += 100;
  63.          }
  64.       }
  65.       else{
  66.          dbecho( 1, "Failure spawning: " @ %aiName );
  67.       }
  68.    }
  69. }
  70.  
  71. //----------------------------------
  72. // AI::setupAI()
  73. //
  74. // Called from Mission::init() which is defined in Objectives.cs (or Dm.cs for
  75. //    deathmatch missions).  
  76. //----------------------------------   
  77. function AI::setupAI(%key, %team)
  78. {
  79.    //if there is no key then they don't exist yet
  80.    if(%key == "")
  81.    {
  82.       %aiFound = 0;
  83.       for( %T = 0; %T < 8; %T++ )
  84.       {
  85.          %groupId = nameToID("MissionGroup\\Teams\\team" @ %T @ "\\AI" );
  86.          if( %groupId != -1 )
  87.          {
  88.             %teamItemCount = Group::objectCount(%groupId);
  89.             if( %teamItemCount > 0 )
  90.             {
  91.                AI::initDrones(%T, %teamItemCount);
  92.                %aiFound += %teamItemCount;
  93.             }
  94.          }
  95.       }
  96.       //check for Graph information
  97.       if(nameToId("MissionGroup\\AIGraph") != -1)
  98.           AI::buildGraph();
  99.       else
  100.          echo("No Graph info to build AI Graph!");
  101.       
  102.       if( %aiFound == 0 )
  103.          dbecho(1, "No drones exist...");
  104.       else
  105.          dbecho(1, %aiFound @ " drones installed..." );
  106.    }
  107.    else     //respawning dead AI with original name and path
  108.    {
  109.       %group = nameToID("MissionGroup\\Teams\\team" @ %team @ "\\AI\\" @ %key);
  110.       %num = Group::objectCount(%group);
  111.       createAI(%key, %group, $AI::defaultArmorType, %key);
  112.       %aiId = AI::getId(%key);
  113.       GameBase::setTeam(%aiId, %team);
  114.       AI::setVar(%key, pathType, $AI::defaultPathType);
  115.       AI::setWeapons(%key);
  116.       
  117.    }        
  118. }
  119.  
  120. //------------------------------
  121. // AI::setWeapons()
  122. //------------------------------
  123. function AI::setWeapons(%aiName)
  124. {
  125.     %aiId = AI::getId(%aiName);
  126.     
  127.    if(Game::missionType == "DM")
  128.    {    
  129.       dbecho(2, "giving DM weapon select...");
  130.       Player::setItemCount(%aiId, blaster, 1);
  131.    }
  132.    else
  133.    {
  134.       dbecho(2, "giving normal weapon select...");
  135.       Player::setItemCount(%aiId, blaster, 1);
  136.        Player::setItemCount(%aiId, disclauncher, 1);
  137.        Player::setItemCount(%aiId, chaingun, 1);
  138.        Player::setItemCount(%aiId, discammo, 500);
  139.        Player::setItemCount(%aiId, bulletAmmo, 50000);
  140.    }
  141.    
  142.    Player::mountItem(%aiId, blaster, 0);
  143.    AI::SetVar(%aiName, triggerPct, 0.03 );
  144.    AI::setVar(%aiName, iq, 70 );
  145.    AI::setVar(%aiName, attackMode, 1);
  146.    AI::setAutomaticTargets( %aiName );
  147.    ai::callbackPeriodic(%aiName, 5, ai::periodicWeaponChange);
  148. }
  149.  
  150.  
  151. //-----------------------------------
  152. // AI::periodicWeaponChange()
  153. //-----------------------------------
  154. function ai::periodicWeaponChange(%aiName)
  155. {
  156.     dbecho(2, %aiName @ " thinking....");
  157.    %aiId = AI::getId(%aiName);
  158.    %curTarget = ai::getTarget( %aiName );
  159.    
  160.    if(%curTarget == -1)
  161.    {
  162.        return;
  163.    }
  164.       
  165.    dbecho(1, %aiName @ " target: " @ %curTarget);    
  166.    
  167.    %targLoc = GameBase::getPosition(Client::getOwnedObject(%curTarget));
  168.    %aiLoc = GameBase::getPosition(Client::getOwnedObject(%aiId));
  169.    %targetDist = Vector::getDistance(%aiLoc, %targLoc);
  170.    dbecho(2, "distance to target: " @ %targetDist @ 
  171.                   " targetPosition: " @ targLoc @ " aiLocation: " @ %aiLoc);
  172.                   
  173.    if(%targetDist > 100)
  174.    {
  175.        Player::mountItem(%aiId, blaster, 0);
  176.       AI::SetVar(%aiName, triggerPct, 0.03 );
  177.    }   
  178.    else
  179.    {
  180.       dbecho(2, "checking for target jet...");
  181.       dbecho(2, "jetting? " @ Player::isJetting(%curTarget));
  182.       if(Player::isJetting(%curTarget))
  183.       {    
  184.          Player::mountItem(%aiId, Chaingun, 0);
  185.          AI::SetVar(%aiName, triggerPct, 0.6 );
  186.       }
  187.       else
  188.       {
  189.          Player::mountItem(%aiId, disclauncher, 0);  
  190.          AI::SetVar(%aiName, triggerPct, 0.03 );
  191.       }   
  192.    }
  193. }
  194.  
  195. //-----------------------------------
  196. // AI::initDrones()
  197. //-----------------------------------
  198. function AI::initDrones(%team, %numAi)
  199. {
  200.     dbecho(1, "spawning team " @ %team @ " ai...");
  201.    for(%guard = 0; %guard < %numAi; %guard++)
  202.    {
  203.       //check for internal data
  204.       %tempSet =     nameToID("MissionGroup\\Teams\\team" @ %team @ "\\AI");
  205.       %tempItem = Group::getObject(%tempSet, %guard);
  206.       %aiName = Object::getName(%tempItem);
  207.       
  208.       %set = nameToID("MissionGroup\\Teams\\team" @ %team @ "\\AI\\" @ %aiName);
  209.       %numPts = Group::objectCount(%set);
  210.       
  211.       if(%numPts > 0)
  212.       {
  213.          createAI(%aiName, %set, $AI::defaultArmorType, %aiName);
  214.          %aiId = AI::getId( %aiName );
  215.          GameBase::setTeam(%aiId, %team);
  216.          AI::setVar( %aiName,  iq,  60 );
  217.          AI::setVar( %aiName,  attackMode, 1);
  218.          AI::setVar( %aiName,  pathType, $AI::defaultPathType);
  219.           schedule("AI::setWeapons(" @ %aiName @ ");", 1);
  220.       }
  221.       else
  222.          dbecho(1, "no info to spawn ai...");
  223.    }
  224. }
  225.  
  226.  
  227. //------------------------------------------------------------------
  228. //functions to test and move AI players.
  229. //
  230. //------------------------------------------------------------------
  231.  
  232. //
  233. //This function will spawn an AI player about 5 units away from the 
  234. //player that is passed to the function(%commandIssuer).
  235. //
  236. //
  237. $numAI = 0;
  238. function AI::helper(%aiName, %armorType, %commandIssuer)
  239. {
  240.    %spawnMarker = GameBase::getPosition(%commandIssuer);
  241.    %xPos = getWord(%spawnMarker, 0) + floor(getRandom() * 15);
  242.    %yPos = getword(%spawnMarker, 1) + floor(getRandom() * 10);
  243.    %zPos = getWord(%spawnMarker, 2) + 2;
  244.    %rPos = GameBase::getRotation(%commandIssuer);
  245.    
  246.    dbecho(2, "Spawning AI helper at position " @ %xPos @ " " @ %yPos @ " " @ %zPos);
  247.    dbecho(2, "Current Issuer rotation: " @ %rPos);
  248.       
  249.    %aiSpawnPos = %xPos @ "  " @ %yPos @ "  " @ %zPos;
  250.    %newName = %aiName @ $numAI;
  251.    $numAI++;
  252.    Ai::spawn(%newName, %armorType, %aiSpawnPos, %rPos);
  253.    return ( %newName );
  254. }
  255.  
  256. //
  257. //This function will move an AI player to the position of an object
  258. //that the players LOS is hitting(terrain included). Must be `    within 50 units.
  259. //
  260. //
  261. function AI::moveToLOS(%aiName, %commandIssuer) 
  262. {
  263.    %issuerRot = GameBase::getRotation(%commandIssuer);
  264.    %playerObj = Client::getOwnedObject(%commandIssuer);
  265.    %playerPos = GameBase::getPosition(%commandIssuer);
  266.       
  267.    //check within max dist
  268.    if(GameBase::getLOSInfo(%playerObj, 100, %issuerRot))
  269.    { 
  270.       %newIssuedVec = $LOS::position;
  271.       %distance = Vector::getDistance(%playerPos, %newIssuedVec);
  272.       dbecho(2, "Command accepted, AI player(s) moving....");
  273.       dbecho(2, "distance to LOS: " @ %distance);
  274.       AI::DirectiveWaypoint( %aiName, %newIssuedVec, 1 );
  275.    }
  276.    else
  277.       dbecho(2, "Distance to far.");
  278.       
  279.    dbecho(2, "LOS point: " @ $LOS::position);
  280. }
  281.  
  282. //This function will move an AI player to a position directly in front of
  283. //the player passed, at a distance that is specified.
  284. function  AI::moveAhead(%aiName, %commandIssuer, %distance) 
  285. {
  286.    
  287.    %issuerRot = GameBase::getRotation(%commandIssuer);
  288.    %commPos  = GameBase::getPosition(%commandIssuer);
  289.    dbecho(2, "Commanders Position: " @ %commPos);
  290.    
  291.    //get commanders x and y positions
  292.    %comm_x = getWord(%commPos, 0);
  293.    %comm_y = getWord(%commPos, 1);
  294.    
  295.    //get offset x and y positions
  296.    %offSetPos = Vector::getFromRot(%issuerRot, %distance);
  297.    %off_x = getWord(%offSetPos, 0);
  298.    %off_y = getWord(%offSetPos, 1);
  299.    
  300.    //calc new position
  301.    %new_x = %comm_x + %off_x;
  302.    %new_y = %comm_y + %off_y;
  303.    %newPos = %new_x  @ " " @ %new_y @ " 0";
  304.   
  305.    //move AI player
  306.    dbecho(2, "AI moving to " @ %newPos);
  307.    AI::DirectiveWaypoint(%aiName, %newPos, 1);
  308. }  
  309.  
  310. //
  311. // OK, this is the complete command callback - issued for any command sent
  312. //    to an AI. 
  313. //
  314. function AI::onCommand ( %name, %commander, %command, %waypoint, %targetId, %cmdText, 
  315.          %cmdStatus, %cmdSequence )
  316. {
  317.    %aiId = AI::getId( %name );
  318.    %T = GameBase::getTeam( %aiId );
  319.    %groupId = nameToID("MissionGroup\\Teams\\team" @ %T @ "\\AI\\" @ %name ); 
  320.       %nodeCount = Group::objectCount( %groupId );
  321.    dbecho(2, "checking drone information...." @ " number of nodes: " @ %nodeCount);
  322.    dbecho(2, "AI id: " @ %aiId @ " groupId: " @ %groupId);
  323.    
  324.    if($SinglePlayer || %nodeCount == 1)
  325.    {
  326.        if( %command == 2 || %command == 1 )
  327.        {
  328.           // must convert waypoint location into world location.  waypoint location
  329.           //    is given in range [0-1023, 0-1023].  
  330.           %worldLoc = WaypointToWorld ( %waypoint );
  331.           AI::DirectiveWaypoint( %name, %worldLoc, 125 );
  332.           dbecho ( 2, %name @ " IS PROCEEDING TO LOCATION " @ %worldLoc );
  333.        }
  334.        dbecho( 2, "AI::OnCommand() issued to  " @ %name @ "  with parameters: " );
  335.        dbecho( 3, "Cmdr:        " @ %commander );
  336.        dbecho( 3, "Command:     " @ %command );
  337.        dbecho( 3, "Waypoint:    " @ %waypoint );
  338.        dbecho( 3, "TargetId:    " @ %targetId );
  339.        dbecho( 3, "cmdText:     " @ %cmdText );
  340.        dbecho( 3, "cmdStatus:   " @ %cmdStatus );
  341.        dbecho( 3, "cmdSequence: " @ %cmdSequence );
  342.    }
  343.    else
  344.        return;   
  345. }
  346.  
  347.  
  348. // Play the given wave file FROM %source to %DEST.  The wave name is JUST the basic wave
  349. // name without voice base info (which it will grab for you from the source client Id).  
  350. // Basically does some string fiddling for you.  
  351. //
  352. // Example:
  353. //    Ai::soundHelper( 2051, 2049, cheer3 );
  354. //
  355. function Ai::soundHelper( %sourceId, %destId, %waveFileName )
  356. {
  357.    %wName = strcat( "~w", Client::getVoiceBase( %sourceId ) );
  358.    %wName = strcat( %wName, ".w" );
  359.    %wName = strcat( %wName, %waveFileName );
  360.    %wName = strcat( %wName, ".wav" );
  361.    
  362.    dbecho( 2, "Trying to play " @ %wName );
  363.    
  364.    Client::sendMessage( %destId, 0, %wName );
  365. }
  366.  
  367.  
  368. // Default periodic callback.  [Note by default it isn't called unless a frequency 
  369. //    is set up using AI::CallbackPeriodic().  Type in that command to see how 
  370. //    it works].  
  371. function AI::onPeriodic( %aiName )
  372. {
  373.    dbecho(2, "onPeriodic() called with " @ %aiName );
  374. }
  375.  
  376.  
  377. function AI::onDroneKilled(%aiName)
  378. {
  379.    if( ! $SinglePlayer )
  380.    {
  381.       %aiId = AI::getId(%aiName);
  382.       %team = GameBase::getTeam(%aiId);
  383.       dbecho(2, "AI Id: " @ %aiId);
  384.       
  385.       // Trying a little longer delay -
  386.       schedule("AI::setupAI(" @ %aiName @ ", " @ %team @ ");", 8 );
  387.    }
  388.    else
  389.    {
  390.       // just in case:
  391.       dbecho( 2, "Non training callback called from Training" );
  392.    }
  393. }
  394.  
  395.  
  396. function AI::buildGraph(%argv)
  397. {
  398.     
  399.    if(!%argv)
  400.    {
  401.        echo("building AI Graph...");
  402.        $nodeGroup = nameToID("MissionGroup\\AIGraph");
  403.        %numNodes  = Group::ObjectCount($nodeGroup);
  404.        echo("nodeGroup: " @ %nodeGroup @ " number of Nodes: " @ %numNodes); 
  405.    }
  406.    else
  407.    {
  408.        echo("rebuilding AI Graph...");
  409.        %numNodes  = Group::ObjectCount($nodeGroup);
  410.    }
  411.    
  412.    for(%i = 0; %i < %numNodes; %i++)
  413.    {
  414.        %node = Group::getObject($nodeGroup, %i);
  415.       %nodePos = GameBase::getPosition(%node);
  416.       %type = GameBase::getDataName(%node);
  417.       %name = "Node " @ %i;
  418.       Graph::AddNode(%nodePos, %name);
  419.    }
  420.    if(%numNodes > 0)    
  421.    {   
  422.       Graph::buildGraph();
  423.       echo("Graph build complete.");
  424.    }
  425.    else
  426.        echo("No nodes to build graph.");
  427. }
  428.  
  429.  
  430. function AI::rebuildGraph()
  431. {
  432.     Graph::reset();
  433.    AI::graphOff();
  434.    focusServer();
  435.    AI::buildGraph("true");
  436.    focusClient();
  437.    AI::GraphOn();
  438. }
  439.  
  440. //these AI function callbacks can be very useful!
  441. function AI::onTargetLOSAcquired(%aiName, %idNum)
  442. {
  443. }
  444.  
  445. function AI::onTargetDied(%aiName, %idNum)
  446. {
  447. }                                 
  448.  
  449. function AI::onTargetLOSLost(%aiName, %idNum)
  450. {
  451. }
  452.  
  453. function AI::onTargetLOSRegained(%aiName, %idNum)
  454. {
  455. }
  456.  
  457. //Render lines to show AI Graph
  458. $AI::testGraph = 0;
  459. function AI::GraphOn()
  460. {
  461.    if( $AI::testGraph == 0 ){
  462.        $AI::testGraph = newObject( "graphRender", AI::GraphPathRender );
  463.       echo("Graph render on");
  464.    }
  465.    else{
  466.       echo("Graph render ALREADY on");
  467.    }
  468. }
  469.  
  470. function AI::GraphOff()
  471. {
  472.    if( $AI::testGraph != 0 ){
  473.        deleteObject( $AI::testGraph );
  474.       $AI::testGraph = 0;
  475.        echo("Graph render off");
  476.    }
  477.    else{
  478.       echo("Graph render ALREADY off");
  479.    }
  480. }
  481.  
  482.  
  483. function AI::testingCommander()
  484. {
  485.    %clientId = "2049";
  486.    AI::helper("jettkiller", harmor, %clientId);
  487.    %aiId = "2050";
  488.    GameBase::setTeam(%aiId, 0);
  489.    AI::callWithId(%aiId, Player::setItemCount, Mortar, 1);
  490.     AI::callWithId(%aiId, Player::setItemCount, MortarAmmo, 10000);
  491.    AI::callWithId(%aiId, Player::mountItem, mortar, 0);
  492.    AI::DirectiveTargetLaser( %aiId, %clientId );
  493. }